home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / sys / amiga / applications / 2169 < prev    next >
Encoding:
Internet Message Format  |  1996-08-05  |  1.9 KB
  1. Path: sn.no!not-for-mail
  2. From: christon@sn.no (Christopher Naas)
  3. Newsgroups: comp.sys.amiga.applications
  4. Subject: WordWorth5 ARexx
  5. Date: 22 Feb 1996 17:41:19 +0100
  6. Organization: SN Internett
  7. Message-ID: <1598.6626T963T1270@sn.no>
  8. NNTP-Posting-Host: sinsen.sn.no
  9. X-Newsreader: THOR 2.21 (Amiga;SOUP)
  10.  
  11. Anyone know a better way of obtaining a list of installed fonts for
  12. WordWorth5?
  13.  
  14. All_Fonts.rexx
  15.  
  16. ---------------------------------- Bobbit ------------------------------------
  17. /* Make list of all fonts in WordWorth 5                 */
  18. /* 22.02.96 by Christopher Naas                          */
  19. /*                                                       */
  20. /* Do with it as you please, just don't claim credit or  */
  21. /* make any money from it :)                             */
  22.  
  23.  
  24. OPTIONS RESULTS
  25.  
  26.  
  27. New
  28. Address Value Result
  29.  
  30. address command 'list WWFonts/UFST/#?.font quick nohead >T:WWFontList'
  31. address command 'sort T:WWFontList to T:WWFontList'
  32.  
  33.  
  34. /* Get a font and save it and it's size */
  35. /*Font*/
  36. GetFont
  37. OldFont = Result
  38. GetFontSize
  39. OldFontSize = Result
  40.  
  41. if open(file,"T:WWFontList",R) then do
  42.  
  43.    mynewfont = readln(file)
  44.  
  45.    DO WHILE mynewfont ~= ''
  46.       offset = lastpos("." ,mynewfont)
  47.       postlen = length(mynewfont) - offset
  48.       len = length(mynewfont) - postlen
  49.       mynewfont = left(mynewfont, len-1)
  50.  
  51.       Font NAME OldFont SIZE OldFontSize BOLD UNDERLINE
  52.       Text mynewfont
  53.       Text '  12'
  54.  
  55.       NewParagraph
  56.  
  57.       Font NAME mynewfont SIZE 12
  58.       Text 'ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 0123456789'
  59.  
  60.       NewParagraph
  61.       NewParagraph
  62.  
  63.       mynewfont = readln(file)
  64.    END
  65.  
  66.    close(file)
  67. END
  68. ---------------------------------- Bobbit ------------------------------------
  69.  
  70. --
  71. Christopher Landmark Naas    o  EMail: christon@sn.no
  72. LoungeBar Development        o  WWW:   http://www.sn.no/~christon/
  73. Former Reg. Amiga Developer  o  IRC:   KarmaComa
  74.